home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol037 / exit.pcs < prev    next >
Encoding:
Text File  |  1987-01-11  |  256 b   |  9 lines
  1. 1 WIDTH 80:COLOR  8,1,7:CLS:CLEAR:KEY(2) ON:ON KEY(2) GOSUB 65140
  2. 65130 E=ERR:RESUME NEXT
  3. 65140 ON ERROR GOTO 65130:RUN"menu
  4. 65150 IF E<>71 THEN RUN"control
  5. 65160 RUN"A:TRANSFER
  6. 65170 SYSTEM
  7. 30 E=ERR:RESUME NEXT
  8. 65140 ON ERROR GOTO 65130:RUN"menu
  9.